inherited frmChangeMeterStatus: TfrmChangeMeterStatus
  Left = 659
  Top = 396
  Width = 337
  Height = 196
  AutoSize = True
  Caption = #1057#1084#1077#1085#1072' '#1089#1090#1072#1090#1091#1089#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 142
    Width = 329
    Align = alTop
    inherited BitBtn1: TBitBtn
      Left = 122
    end
    inherited BitBtn2: TBitBtn
      Left = 224
    end
  end
  inherited ToolBar1: TToolBar
    Top = 169
    Width = 329
    Height = 0
    Enabled = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 329
    Height = 142
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 101
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1053#1086#1074#1099#1081' '#1089#1090#1072#1090#1091#1089
    end
    object Label2: TLabel
      Left = 16
      Top = 39
      Width = 101
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099
    end
    object Label3: TLabel
      Left = 16
      Top = 65
      Width = 101
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103
    end
    object Label4: TLabel
      Left = 16
      Top = 91
      Width = 101
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1077#1088#1077#1093#1086#1076#1086#1074' '#1095#1077#1088#1077#1079' 0'
    end
    object Label5: TLabel
      Left = 16
      Top = 118
      Width = 101
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1053#1072#1095#1080#1089#1083#1080#1090#1100' '#1076#1072#1090#1086#1081
    end
    object dbtDocdate: TDBDateTimeEditEh
      Left = 127
      Top = 36
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 0
      Visible = True
    end
    object dbnMeterPh: TDBNumberEditEh
      Left = 127
      Top = 62
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DecimalPlaces = 0
      EditButtons = <>
      Flat = True
      TabOrder = 1
      Visible = True
    end
    object dbnZero: TDBNumberEditEh
      Left = 127
      Top = 88
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DecimalPlaces = 0
      EditButtons = <>
      Flat = True
      TabOrder = 2
      Value = 0.000000000000000000
      Visible = True
    end
    object dbtChargeDate: TDBDateTimeEditEh
      Left = 127
      Top = 115
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 3
      Visible = True
    end
    object lcbStatusList: TDBLookupComboboxEh
      Left = 127
      Top = 10
      Width = 191
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscMeterStatus
      TabOrder = 4
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 0
    Top = 32
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
    Left = 0
    Top = 4
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 224
    Top = 4
  end
  object QSetStatus: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE '
      '    PROC_METER_SET_STATUS(:PMETER_ID,'
      '    :PSTATUS,'
      '    :PDATE,'
      '    :PMETER_PH,'
      '    :PZERO,'
      '    :PDOCDATE)  ')
    Left = 224
    Top = 32
    qoStartTransaction = True
  end
  object dsProps: TpFIBDataSet
    SelectSQL.Strings = (
      'select first(1) maa.edate, mi.ph'
      '  from m_accpoint_acts maa, meter_ind mi'
      '  where maa.id = mi.act_id'
      '    and maa.is_deleted = 0'
      '    and mi.is_deleted = 0'
      '    and mi.meter_id = :pmeter_id'
      '  order by maa.edate desc')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 256
    Top = 4
    object dsPropsEDATE: TFIBDateField
      FieldName = 'EDATE'
    end
    object dsPropsPH: TFIBBCDField
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
  end
  object dsMeterStatus: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    r.id,'
      '    r.name'
      'from rmeter_status r'
      'join meter_status_rules mr on mr.nstatus = r.id'
      ' and mr.ostatus = :c_status'
      'order by 2')
    BeforeOpen = dsMeterStatusBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 256
    Top = 32
    object dsMeterStatusID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsMeterStatusNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dscMeterStatus: TDataSource
    DataSet = dsMeterStatus
    Left = 288
    Top = 32
  end
end
